Release 10.1A: OpenEdge Development:
Web Services

Sample Progress 4GL and VB.NET interface method prototypes

The following examples show Progress 4GL prototypes and how the sample Reference.vb file maps them to the equivalent VB.NET method prototypes.

Note: The object ID in the SOAP headers are not shown in the VB.NET method prototypes.

Non-persistent procedure

Progress 4GL:

/* FindCustomerByNum.p */ DEFINE INPUT PARAMETER CustomerNumber AS INTEGER. DEFINE OUTPUT PARAMETER CustomerName AS CHARACTER.

VB.NET OrderInfoObj (AppObject) method:

Public Sub FindCustomerByNum(               ByVal CustomerNumber As Integer,               ByRef CustomerName As String)

Persistent procedure

Progress 4GL:

/* CustomerOrder.p */ DEFINE INPUT PARAMETER custNum AS INTEGER.

Note: This procedure returns a value using the 4GL RETURN statement.
VB.NET OrderInfoObj (AppObject) method:

Public Function CreatePO_CustomerOrder                    (ByVal custNum As Integer) As String

User-defined function

Progress 4GL:

/* CustomerOrder.p */ FUNCTION GetTotalOrdersByNumber RETURNS INTEGER    (Threshold AS DECIMAL) :

VB.NET CustomerOrderObj (ProcObject) method:

Public Function GetTotalOrdersByNumber                    (ByVal Threshold As Decimal) As Integer

Internal procedure passing a TABLE parameter

Progress 4GL:

/* CustomerOrder.p */ PROCEDURE GetOrderDetails :      DEFINE OUTPUT PARAMETER TABLE FOR OrderDetails.

VB.NET CustomerOrderObj (ProcObject) method:

Public Sub GetOrderDetails(               ByRef OrderDetails( ) As OrderDetailsRow)

TABLE definition

Progress 4GL:

/* CustomerOrder.p */ DEFINE TEMP-TABLE OrderDetails    FIELD OrderNum LIKE Order.OrderNum    FIELD SalesRep LIKE Order.SalesRep    FIELD OrderDate LIKE Order.OrderDate    FIELD ShipDate LIKE Order.ShipDate    FIELD TotalDollars AS DECIMAL    FIELD OrderStatus LIKE Order.OrderStatus.

VB.NET OrderDetailsRow object:

Public Class OrderDetailsRow    Public OrderNum As Integer    Public SalesRep As String    <. . .> Public OrderDate As Date    <. . .> Public ShipDate As Date    Public TotalDollars As Decimal    Public OrderStatus As String

External procedure passing a TABLE-HANDLE parameter

Progress 4GL:

/* DynTT.p */ DEFINE INPUT-OUTPUT PARAMETER TABLE-HANDLE ttHandle.

VB.NET RPC/Encoded method:

Public Sub DynTT(ByRef ttHandle As Object)

VB.NET Document/Literal method:

Public Function DynTT(ByRef ttHandle As System.Xml.XmlElement) As String